#!
sub shift_to_uppercase
{
	@words = qw(a b c d e f g );
	$_=uc($_) foreach @words;
	return @words;
}
print join ("\n",shift_to_uppercase());